home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / csrplus / csrplus.ba_ / csrplus.ba
Text File  |  1995-01-25  |  4KB  |  136 lines
  1. 'CsrPlus.DLL should be in your Windows\System directory or in the Path
  2. 'NOTE: The MousePointer for the specified control or form MUST be set to DEFAULT (0)
  3.  
  4.  
  5. 'Version Functions
  6. Declare Function GetCsrPlusVersion% Lib "CsrPlus.DLL" ()
  7.     'determines the version of CsrPlus
  8.     'return value is major*100+minor
  9. Declare Function GetVersionInfo% Lib "CsrPlus.DLL" (ByVal Application$, ByVal VersionType$)
  10.     'determines version of specified file
  11.     'Application$="Windows", "Dos", or "CsrPlus"
  12.     'VersionType$=major, minor, or full (full=major*100+minor)
  13.  
  14.  
  15. 'Backdrop Function
  16. Declare Sub FormBackDrop Lib "CsrPlus.DLL" (ByVal TheHwnd%, ByVal TheStyle$)
  17.     'TheHwnd% is the hWnd property of the Form or PictureBox
  18.     'set TheStyle$ to any of the following
  19.         'SmallCheckLight
  20.         'SmallCheckDark
  21.         'SmallCheckBlue
  22.         'SmallCheckRed
  23.         'BigCheckLight
  24.         'BigCheckDark
  25.         'BigCheckBlue
  26.         'BigCheckRed
  27.         'HorzLinesLight
  28.         'HorzLinesDark
  29.         'DiamondsLight
  30.         'DiamondsDark
  31.         'SlickFillLight
  32.         'SlickFillDark
  33.         'User1
  34.         'User2
  35.         'User3
  36.         'User4
  37.  
  38.  
  39. 'Cursor Control Functions
  40. Declare Function MakeCursor& Lib "CsrPlus.DLL" (ByVal TheHwnd%, ByVal TheCursorName$)
  41.     'TheHwnd% is the hWnd property of the control or form for which to change the cursor
  42.     'TheCursorName$ is the name of the new cursor (these are listed topically below)
  43.     'Use this function in the form's LOAD event for best results
  44.     'Use these two global constants to store the original cursor handles (for later restoring)
  45.     Global OrgCursor As Long
  46.     Global OrgTextCursor As Long
  47. Declare Function MakeSysCursor& Lib "CsrPlus.DLL" (ByVal TheHwnd%, ByVal TheCursorName$)
  48.     'TheHwnd% is the hWnd property of the control or form for which to change the cursor
  49.     'TheCursorName$ is the name of the new cursor (these are listed topically below)
  50. Declare Sub RestoreCursor Lib "CsrPlus.DLL" (ByVal TheHwnd%, ByVal hOrgCursor&)
  51.     'TheHwnd% is the hWnd property of the control to restore the cursor for
  52.     'hOrgCursor& is the original cursor handle (typically OrgCursor or OrgTextCursor, described above)
  53.     'Use this function in the form's UNLOAD event
  54.  
  55.  
  56. 'Cursor Names (Functional)
  57.     'ContextHelp
  58.     'CopyText
  59.     'CrossHair
  60.     'DrawRectangleEmpty
  61.     'DrawRectangleFilled
  62.     'DrawOvalEmpty
  63.     'DrawOvalFilled
  64.     'DrawRRectEmpty
  65.     'DrawRRectFilled
  66.     'Eraser
  67.     'Eyedropper
  68.     'FountainPen
  69.     'FrameUpperLeft
  70.     'FrameUpperRight
  71.     'FrameLowerLeft
  72.     'FrameLowerRight
  73.     'Hand
  74.     'Help
  75.     'Magnet
  76.     'Magnifier
  77.     'MoveHand
  78.     'MoveTruck
  79.     'PaintBrush
  80.     'PaintRoller
  81.     'PasteIt
  82.     'Pen
  83.     'Pencil     (note that this cursor is color-inverted on its control)
  84.     'Pencil2
  85.     'Scissors
  86.     'SprayCan
  87.     'Syringe
  88.     'Text
  89.  
  90. 'Cursor Names (Standard)
  91.     'Arrow  (just like the standard system arrow -- for easy resetting)
  92.     'ArrowDark
  93.     'CheckMark
  94.     'DartNW
  95.     'DartSW
  96.     'FatArrowNE
  97.     'FatArrowNW
  98.     'FatArrowSE
  99.     'FatArrowSW
  100.     'HandPointE
  101.     'HandPointN
  102.     'HandPointS
  103.     'HandPointW
  104.     'Lightning
  105.     'MagicWand
  106.     'StarWand
  107.     'TrekPointer
  108.  
  109. 'Cursor Names (Novelty)
  110.     'Ampersand
  111.     'Bug
  112.     'CardClub
  113.     'CardDiamond
  114.     'CardHeart
  115.     'CardSpade
  116.     'DollarSign
  117.     'GolfClub
  118.     'Horse
  119.     'Key
  120.     'Knight
  121.     'Mouse
  122.     'RaisinMan
  123.     'Skull
  124.     'Star
  125.     'Sword
  126.     'Xmark
  127.     'YinYang
  128.  
  129. 'Cursor Names (Animation) -- refer to the Timer1_Timer subroutine in the CurDemo form for usage details
  130.     'HourGlass1 (1-7)
  131.     'Timer1 (1-8)
  132.  
  133. 'Cursor Names (User Defined) -- modify the CsrPlus.DLL with a resource editor to define these shapes
  134.     'User1 (1-8)
  135.  
  136.